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SUBJECT: P&IKT I - An Interpretive Routine for Printing Kumerlc al 

Output from TX-0 

DATS: 9 February I960 



General Description 

PRIKT I is available either ©•© a subroutine to be converted,, 
or as a utility tape which can be put in memory at a pre-specified 
location* It is ?**6g registers long* and with it a programmer can 
print out several kinds of numbers^ in various format s as deslredo 

Interpretive Boutines 

A standard TX-0 program contains a series of instructions 
stored in memory* The computer is designed to interpret these Instructions 
in various ways. "Add x" for example tells the computer to add the con- 
tents of x to whatever number is in the accumulator* 

An interpretive routine is quite similar in design,. You still 
haire a series of orders stored in memory but these orders are never 
placed in the memory buffer register* Instead,, they are examined by 
another program^ step by step and the end result is that the computer 
seams to obey an entirely different set of instructions from those it 
le accustomed to seeing* Terms such as "cla" "tra x M and "pna" are no 
longer carried out d but terms such as "pcm** $fl n" "plv x" are, inter- 
preted properly* 

How To Use The Program 

Entering the program is accomplished by typing the macro 
Instruction "print"* This occupies only two registers and is defined 
elsewhere in this memo* After typing "print " you may nov* use a new set 
of symbolso describing the manner in which you want data printed out* 
When you have finished using the print commando the psuedo-instruction 
n plv x" will cause control of the computer to be transferred uncondition- 
ally to register x, with a cleared accumulator* 

Orders Available in PBIM? X 

After typing "print*- followed by a carriage return,, you may call 
for any of the following orders s 

psd x The contents of the bank of registers 

from x to y will be printed cut,, hori- 
t0 y 2ontally„ just as UT-3 does* except that 

t M ~ , initial zeros will be suppressed with 

(arint Space suppressed spaces, and the numbers will be signed 
decimal) decimal* 
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Initial zeros are always suppressed by all these orders „ but 
you have a choice of how you want this done* 

These orders print z to y as decimal 
numbers „ but the numbers will be typed 
immediately,, and initial seres will be 
ignored completely rather than 
suppressed with spaces • 



pnd 


z 


to 


y 


(jgrint no space 

suppressed decimal) 


pso 


x 


to 


y 


pno 


x 


to 


y 


psu 


X 


to 


y 


pnu 


x 


to 


y 


PSg 


X 


to 


y 


png 


X 


to 


y 


pfr 


X 


to 


y 



£rint spaced suppressed (signed) £ctal 



£rint &o space suppressed (signed) 
octal 



Xirint spaced suppressed ignslgned octal 



jarinfc no space suppressed jgnsigned octal 



&rint space suppressed unsi£nod decimal 



jarint no space 
decimal 



suppressed unaided 



l>rint a as decimal signed £ractione,> x ^o 
y e assuming the binary point to the right 
of bit zero*. Bit 2ero is the sign bit 
and the sign is changed by complementing 
the whole number * normally six figures 
to the right of the decimal point are 
typed • The last figure is not rounded 
off* That is «358^289 would appear as 
o 358428 to six place accuracy « 



Format 



When a command such as 
pso k 
to y 
given the flexowriter does the following; 
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1. Prints carriage return* 
2o Print x I — ^.n^ — * n 



L 2 """* * ^ • • • — ~fc»n 



8 



etc. 



3° Boes another carriage return,, prints 

(x+8)| tfcn ia.. -..^n __*-n 

**o Vhen the last register is printed out, a carriage return 
is made and PRINT I looks at the next order , the one after 

to y « 

The format can be modified in many ways. Above D 10 o columns 
were printed onto The order 8 caLUBna 

pcm n ($rint column) 
changes the counter criteria, and now only n columns will he printed* 
Ll\Vfl'!!! in /° lm 2 i J en ° thSr pC ® 0rder is VrovlM, or until the 

printed. Do not let n be greater than 10 o . 6 

o 

The order 

pbp (n,rint £y ^ass) 

will by pass the program section that types signatures on the format. If 
this order is given, the *rery next time a format is specified the^e will be 
no renter identification at the left hand side. The normal f ormat Jro- 
pCtely printed!^ 17 reSt ° red * hen thls P^t^ular format has been com- 

If one wishes to by pass all of the format,, the following pro- 
cedure is used: ^ * 

pso X 

pso y 

to z 

»♦« « , Th9 ± m * ort£mt 0rder *»*• is pso x* It is not followed by a 
to y order, but rather by an entirely new order. Whenever a printout 

tioac If anything but a "to y« order is in the next register (in this 
I ° P !°/ ls f ontain9d there), the print subroutine will immediately 
typa out just the number without any carriagQ returns or tabs before or 
after. In the above case, the contents of x will be typed as a signed 
space zero-suppressed octal number* 5 ° 

Othe r Orders 

psfja specifies the number of significant Xigures used in 
iractiona. n must be an octal number* This order permanently changes 
the program when given, until, of course another psf order is giveno 
If ,fca psf instruction is net used six figures will be typed* 

221 is operate zero. This order does nothing it ls merely a 
apace filler to enable one to modify his program by inserting or re- 
moving orders. 



£Hja (n is an octal number) n flexo triplets will be typed, 
The triplets must be stored immediately following the pfl order: 

pfl 4 

flexo thi 

flexo s i 

flexo s i 

flexo t 



yields; this is it 
when the program is run© 

Srrora 

Once PRIM* I is properly entered it has several features built 
in so that it cannot destroy itself if given an illegal order (for example, 
els). If an illegal order is given, the flexowriter will type ipi„ 
(illegal print instruction) and the computer will stop* The accumulator 
will contain as a n add instruction, the register which contained the 
bad ordero Pressing restart will cause the interpretive routine to skip 
the illegal instruction and look at the next one* 

S-gs imary of Orders Available 

decimal: signed psd (spaces for initial zeros) 

pnd (nothing for initial seros) 

unsigned peg (space) 

pnd (nothing) 

octal: signed pso (ditto) 

pno 

unsigned psu 

pnu 

fraction: pfr (decimal fractions) 

significant figures 

in fraction psf n (n is octal) 

do nothing poz 

flexo characters pfl n (n is octal) 

followed by the flexo triplets 

column modify pern n (octal n) 

by pass address 

signature pbp 

leave subroutine plv x (computer control goes to x) 
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•*n fn V* L I a ^ labla as a Wawy tape occupying registers 
registers, FEIHT I must la read in along with the user's program 

beginni ** ****** th ° macr0 tape one should ***© the following at the 

define 

print 
llr .. 
tra 30 
terminate 
psd*20000 
pnd*40000 
pso=60000 
pno*100000 
pau*120000 
pnu»l*K)000 
pfl*l60000 
pbp "200000 
psg*220000 
pnS a 2^C000 
pfr»260000 
oJLv*300000 
pcm^OOOO 
poz*3*K>000 
psf»360000 
to'«0 

The programmer may now use any or all of the print orders,, and 
ssay call for "print" as many times as he wishes, 

HaiUT I is also available as a subroutine which the user may 
convert and store wherever ho chooses o The subroutine defines the 
.following symbols: 

define print 
llr . 
tra pit 
terminate 
all the orders (such as pso pad) defined above,, 
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aud also: 

pit (starting address) 
pie (finishing address). 

Pit and pie are the only flads used in the program,, and since 
miM I defines so few symbols^ it may be more convenient for the pro- 
grammer to use the English tape. "Print" is the only macro instruction 
defined,, "constants 11 is used once* "fo nd* £s defined as opr. 22S* Shis 
tfill be changed when the new computer code is installed* The English 
tape contains its own title and ends with the order "start pit"* It 
does not define a starting address,, and it cannot be the very first tape 
of a series of tapes converted. The reader is urged to use the macro 
nemo to see how to convert more than one tape on one run of KACRO II* 

Attached is an example of a program written to use PRINT I % 
Registers 4000 to 4033 contain arbitrary numbers to be printed out. 



Signed 
K'B/dbh 




P, T. Brady 



Approved $& JbtMMd^ t/JJi^ 



<T« So Dennis 



ADDITIONS T O TH£ ERIflT I KJEMQRAKDpK OF 1 MARCH 1<?60 p c Brady 



Since the first writing of the memo on PHIKT I, the program has 
been revised and contains a few new orders. The following orders may now 

be used: 

peb n 



x 

to y 

pmn x 

to y 

These orders print wised numbers. A mixed number is formed by 
setting a binary point in a register, calling everything to the left-, except 
bit zero, the integer, and everything to the right a fraction. 



ooQQoofeoOjQ&a® 

21 20 1? 16 15 14 13 12. 11*10 7 6 5 

bign bit „, ' M 

in this case + Binary Point • 

In this case at 11 



► o o o 

J 2 1 

Small numbers 
indicate binary 
point position 



The number shown in the example is read as follows: 
Left of the binary point is 

Sight is ??0 (octal) = 



144 (octal) * 100 (decimal) 



*5 
.25 

.125 

.0625 
.03125 

.984375 



The total number is 



100.984375, decimal. 
Complementing the entire number changes its sign. 

The order psb n sets the binary point. The programmer must indicate 
this point before giving either of the other two orders. If he does not 
HtlKT 2 will assume the point to be at 11. 
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psb set binary point at n 

pms print mixed suppressed with spaces 

pmn print mixed 9 suppressed with nothing 

pms will also align decimal points in a column* 

The binary point is restricted to lie within the range 21 J^,n Si 0* 
A very wrong answer will result if n goes out of this range o 

In printing mixed numbers only four columns (or less) may be 
printed. The order "pcm 0<n^ 11 should be given before a pms or pmn order. 
If not the computer will halt on an in-out stopo You may restore eight 
columns afterwards if you wish* 

If you have forgotten to do this D and you are using the binary tape p 
stop the computer and store "3" in register 1?6* 

The PRIKT I program itself is a little longer after revision* In its 
binary form it occupies 30g to 1020g* The English tape varies in length because 
of tfco way the constants table is assembled, but should not exceed 1000 g registers* 

%&§. English tape no longer defines anything* A separate table consisting 
of definitions Is available in the same box as the -Binary* tape and may be used 
with either the English or binary tape* 

The following procedures are recommended when converting: 

Using binary tape: lo Read in a title tape of your program* 

2o Head in "Print define". 

3* Bead in your own tape* 

4* Be sure your own tape defines pit=30 and does not 
occupy registers 30 to 1020 inclusive* 

Using English tape: 1* Read in a title tape of your program* 

2* Head in "Print define" * 

3* If you read in "FBIHT I English" now, your title 
tape roust contain a starting address* If your own 
tape is read in now followed by "ERIHT I English" e 
this is not necessary* 

4* The English tape defines "pit" for you* It also 
defines "pie" as the last address. 

The additional commands are: psb * 400000 

pms * 420000 
pmn - 440000 

In programming with PRIKT I* you may program a series of orders 
such as: 
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P«. n 

(n registers of flexo) 

pen 3 

pso 4000 

to 
5000 

png 3000 

to 
3017 

When this is put into operation,, you may suddenly decide that you 
are not really interested in the contents of *f000 to 5000 and you would 
prefar to skip to the pso order- 

This is accomplished by pushing test with tor set to "trn pit-*6 B 
(trn 36 if using binary tape). If the flexo types "ipi" when you do this* 
ignore it and push either restart or test© again o 

Tou may think of a series of print orders as a stack of records on 
a record changes They roust be played in order and you cannot skip any, 
but you may push "reject" whenever you wish. 

This will not work if you are in the "pfl" mode* It is very 
important that you do not try this if the typewriter is printing flexo 
characters . 

It is immaterial to this program whether "type in" is on or off » 



Here are the contents of 4000 to 4034' 



4000| 



4010| 



decimal 



1 

12 

777777 

776545 

53 

-53 

-773 

545 



-O 

1 

-1 

3 333„ 
776545 
1 
1 

12 
10 

19 

1 



-0 

87989 

128921 



octal 
4030] 



Assume you want these numbers printed out in a variety of ways* 
format would bem as entered from your program, as follows* 

XXX 



200000 


fraction, 


.5 


100000 


.25 




-20000 


-.5 




-100000 


-•25 





A possible 



print 



XXX 
XXX 

pfl(5 
flexo reg 
flexo 1st 
flexo 40 
flexo 00 
flexo « 
pnd 4000 



psd 4000 
to 4000 
pso 4000 
to 4017 
pno 4000 
to 4017 
poz 

pf 1 4 
flexo che 
flexo ck 
flexo pt 



here it will print the contents of 4000 as a decimal 
number suppressed with no spaces. Since this pnd 
order is immediately followed by another order, no 
format will appear ♦ 



I will do nothing here 





f lexo 1 
pf p 4030 
to 4034 
pop 

pno 4000 
to 4017 


by pass the format signature 




| notice that the signatures will be printed after this 
Instruction, as this part of the program Is automatically 
restored. 




pcm 4 
pso 4000 
to 4017 
psf 3 
pfr 4030 
to 4034 
cla | 

pcm 10 
psf 6 
pfr 4030 
to 4034 
plv .+1 | 


this Is an Illegal order . Restart must be pressed to 
continue the program. 

leaves the Interpretive routine 




XXX 












XXX 












XXX 










Here 


are the results 


from the on-line printer • 




retlst 4000 « 1 

m>q 1 










4000 
401C} 


1 ■ j - 


12 




1 


- 1232 
1 


53 - 53 - 773 545 
3333 - 1232 1 1 


4000| 1 15 
4010J -0 
check pt 1 
4030| ,500000 .£ 


> 

J50000 


-777777 
1 

-.500000 


-1232 
-1 

-.250000 


53 -53 -773 545 
3333 -1232 1 1 

.015373 


.^-«~ 


1 IS 

-0 


> 


-0 
1 


-1232 
-1 


53 -53 -773 545 
3333 -1232 1 1 


4000 
4004 
4010 
4014 


1 

53 - 


3333 - 


12 

53 



1232 




- 773 

1 

1 


- 1232 

545 
1 

1 1 




4030| 

4034| 
Ipl 
4030| 


•500 .S 
.015 

•500000 .2 


>50 
50000 


-.500 
-.500000 


-.250 
-.250000 


.015373 


(Prog 


ram Is finished. 


) 









